home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / wgt_tp1.zip / QUIKREF.DOC < prev    next >
Text File  |  1992-07-05  |  4KB  |  88 lines
  1.                               WGT TP Version 1.0
  2.                                Quick Reference
  3.                               ******************
  4.  
  5. Reserved names available to your programs:
  6. ------------------------------------------
  7.  
  8. TYPE
  9.     sprites = array [1..100] of pointer;
  10.     columns = array [0..319] of byte;
  11.     screen = array [0..199] of columns;
  12.     screenptr = ^screen;
  13.     mousemap = array [0..31] of word;
  14.     directions = (up,down,left,right);
  15.     hidetype = (mask, letter, none);
  16.     flip = (vertical,horizontal);
  17.     blockmode = (normalput,xrayput);
  18.     ColorType = record
  19.                   R         : Byte;
  20.                   G         : Byte;
  21.                   B         : Byte;
  22.                 end;
  23.     Palette = array[0..255] of ColorType;
  24.  
  25. CONST Basescreen = PTR($A000 , $0000);
  26.  
  27. VAR
  28.    currentscreen : SCREENPTR;
  29.    memory_usage : LONGINT;
  30.  
  31.  
  32.  
  33. Command Formats:
  34. ----------------
  35.  
  36. Procedure _ClearDevice(col : byte);
  37. Procedure _ClearViewPort(col : byte);
  38. Procedure _SetColor(color : byte);
  39. Procedure _SetViewPort(x1,y1,x2,y2 : integer);
  40. Function  _GetPixel(x,y : integer): word;
  41. Procedure _PutPixel(x,y : integer; col : byte);
  42. Procedure _Line(x,y,x2,y2 : integer);
  43. Procedure Set_Palette_Block(start,finish: word; VAR block: palette);
  44. Procedure Color_Rotate(start,finish : word; dir : directions; VAR pal : palette);
  45. Procedure Scroll(x,y,x2,y2:integer; dir:directions; amount : integer);
  46. Procedure New_Block(x,y,x2,y2 : integer; VAR loc : pointer);
  47. Function  Block_Width(loc : pointer): integer;
  48. Function  Block_Height(loc : pointer): integer;
  49. Procedure Flip_Block(VAR loc : pointer; flipdir: flip);
  50. Procedure Resize_Block(x,y,x2,y2 : integer; blockname : pointer);
  51. Procedure Put_Block(x,y : integer; VAR loc : pointer; method : blockmode);
  52. Procedure Free_Block(VAR loc : pointer);
  53. Procedure Set_Transluscent(trans : byte);
  54. Function  Get_Transluscent : byte;
  55. Procedure _Circle(x_center,y_center,radius:integer);
  56. Procedure Filled_Circle(x_center,y_center,radius: integer);
  57. Procedure _Rectangle(x,y,x2,y2: integer);
  58. Procedure _Bar(x,y,x2,y2: integer);
  59. Procedure Load_Block(filename : string; VAR blockname : pointer);
  60. Procedure Save_Block(filename : string; VAR blockname : pointer);
  61. Procedure Fade_Out(start, finish : integer; p : palette; spd : byte);
  62. Procedure Fade_In(start, finish : integer; p : palette; spd : byte);
  63. Procedure _SetRGBPalette(color,red,green,blue : byte; VAR p : palette);
  64. Procedure Load_Palette(filename : string; VAR p : palette);
  65. Procedure Save_Palette(filename : string; VAR p : palette);
  66. Procedure Mouse_Init(VAR installed : boolean; VAR buttons : integer);
  67. Procedure Mouse_Range(minx,miny,maxx,maxy : integer);
  68. Procedure Mouse_SetXY(x,y : INTEGER);
  69. Procedure Mouse_On;
  70. Procedure Mouse_Off;
  71. Procedure Mouse(VAR x,y,button: integer);
  72. Procedure Mouse_Cursor(rowhot,colhot : integer; var bitmap : mousemap);
  73. Procedure Init_Screen(VAR screenname: screenptr);
  74. Procedure Remove_Screen(VAR screenname : screenptr);
  75. Procedure Copy_Screen(x,y,x2,y2 : integer; source : screenptr; dx,dy : integer; dest : screenptr);
  76. Procedure Patches(mode : integer; VAR source : screenptr; spd : word);
  77. Procedure RegionFill(x,y : integer);
  78. Procedure LoadPCX(filename : string);
  79. Procedure _OuttextXY(x,y : integer; s : string);
  80. Procedure _TextColor(color : byte);
  81. Procedure _TextBackGround(color : byte);
  82. Procedure TextGrid(onoff : Boolean);
  83. Procedure TextTransparent(transparent : hidetype);
  84. Procedure TextInput(x,y : integer; format : string; VAR result : string);
  85. Procedure TextCursor(cleft,ctop,cright,cbottom : byte);
  86. Procedure LoadSprites(filename : string; VAR p : palette; VAR b : sprites);
  87. Procedure FreeSprites(VAR b : sprites);
  88.